
******************************************************************************************************************
***************** Figure 7: Comparing the Enforcement Against Cartels and Unilateral Conduct 	 *****************
******************************************************************************************************************


// Panle A
use CCL_Law_Data_Ver1.dta,clear

merge country year using CCL_Enforcement_Data_Ver1.dta, sort
drop _merge

preserve
keep if year >1990
keep if year <2011
drop if regional_group==1
drop if competition_law_coded_ever==0

egen EFF = sum(cartel_investig_total), by(year)
tab EFF year

egen tag = tag(year)
twoway line EFF year if tag, sort saving(cartel) graphregion(color(white)) bgcolor(white) xtitle("Year") ytitle("Number") title("(A) Cartels - Investigations",color(black)) lpattern(1 _ shortdash_dot longdash) xla(1990(5)2010) yla(0(1000)4100) ylin(4000)


// Panle B
use CCL_Law_Data_Ver1.dta,clear

merge country year using CCL_Enforcement_Data_Ver1.dta, sort
drop _merge

keep if year >1990
keep if year <2011
drop if regional_group==1
drop if competition_law_coded_ever==0

egen EFF = sum(dominance_investig_total), by(year)
tab EFF year

egen tag = tag(year)
twoway line EFF year if tag, sort saving(dominance) graphregion(color(white)) bgcolor(white) xtitle("Year") ytitle("Number") title("(B) Unilateral Conduct - Investigations",color(black)) lpattern(1 _ shortdash_dot longdash) xla(1990(5)2010) yla(0(1000)4100) ylin(4000)

// Panle C
use CCL_Law_Data_Ver1.dta,clear

merge country year using CCL_Enforcement_Data_Ver1.dta, sort
drop _merge

*preserve
keep if year >1990
keep if year <2011
drop if regional_group==1
drop if competition_law_coded_ever==0

egen EFF = sum(cartel_remedy_total), by(year)
tab EFF year

egen tag = tag(year)
twoway line EFF year if tag, sort saving(cartel_remedy) graphregion(color(white)) bgcolor(white) xtitle("Year") ytitle("Number") title("(C) Cartels - Remedies",color(black)) lpattern(1 _ shortdash_dot longdash) xla(1990(5)2010) yla(0(500)2100) ylin(2000)

// Panle D
use CCL_Law_Data_Ver1.dta,clear

merge country year using CCL_Enforcement_Data_Ver1.dta, sort
drop _merge

keep if year >1990
keep if year <2011
drop if regional_group==1
drop if competition_law_coded_ever==0

egen EFF = sum(dominance_remedy_total), by(year)
tab EFF year

egen tag = tag(year)
twoway line EFF year if tag, sort saving(dominance_remedy) graphregion(color(white)) bgcolor(white) xtitle("Year") ytitle("Number") title("(D) Unilateral Conduct - Remedies",color(black)) lpattern(1 _ shortdash_dot longdash) xla(1990(5)2010) yla(0(500)2100) ylin(2000)


gr combine cartel.gph dominance.gph cartel_remedy.gph dominance_remedy.gph,col(2)

